{- import System.Console.Haskeline
import System.Console.Haskeline.IO -}
import Control.Concurrent
import System.IO
import System.Console.ANSI


moveMe x y = do
	clearScreen
	setCursorPosition x y	
	c <- getChar
	case c of
		'w' -> moveMe x (y-1)
		's' -> moveMe x (y+1)
		'a' -> moveMe (x-1) y
		'd' -> moveMe (x+1) y
		_ -> putStr "...ahoj"

main = do
	hSetBuffering stdin NoBuffering 
	putStr "start..."
	moveMe 5 5
